kayomaster, pelo que entendi, a rotina a ser usada seria a abaixo, e para evitar algum erro quando passar para o seu arquivo, montei um modelo baseado no que enviou, só que tirei as formulas e vinculos para testar, coloquei alguns dados para testar, veja se aeria isto, tambem estou supondo que a data que comentou é a da coluna L, se não for, é só alterar na rotina.

Faça os testes e veja se é isto;

Sub Copy_Consolidado()
    Dim Linha As Long
    Dim sLinSheets As Long
    Dim sRG As Range
    Dim sCodigo
    Dim sRow As Long
    Dim sSht As Worksheet
    Dim ShtCONSOLIDADO As Worksheet
    Dim sRgColunas
    Dim sRotulo
    Dim iLinRotulo
    Dim Col As String
    
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    Set ShtCONSOLIDADO = wb.Sheets("CONSOLIDADO")
    
    Linha = ShtCONSOLIDADO.Range("A2").End(xlDown).Row
    
    Set sRG = ShtCONSOLIDADO.Range("A4:" & "A" & Linha)
    
        For Each x In sRG
            sRow = x.Row

            Set sRgColunas = ShtCONSOLIDADO.Range("C" & sRow & ", I" & sRow & ",M" & sRow & ", O" & sRow & ",R" & sRow & ", T" & sRow & ",V" & sRow)
                
                For Each i In sRgColunas
                    iLinRotulo = 2 'Linha do Cabeçalho
                    
                    'Verificamos se o avlor é nulo
                    If i.Value <> "" Then
                        'Montamos a Letra das Colunas
                        Col = Split(i.Address(1, 0), "$")(0)
                        
                        'Linha dos Rotulos (Cabeçalho)
                        sRotulo = Range(Col & iLinRotulo).Address(0, 0)
                        'Capturamos o codigo
                        sCodigo = x.Value
                        sRow = i.Row
                        
                        'Montamos o nome da aba como o sCodigo
                        Set sSht = wb.Sheets(CStr(sCodigo))
                        sLinSheets = sSht.Range("A2").End(xlDown).Row + 1
                        
                        'Copiamos para as abas
                        ShtCONSOLIDADO.Range(sRotulo).Copy Destination:=sSht.Range("A" & sLinSheets)
                        ShtCONSOLIDADO.Range(i.Address).Copy Destination:=sSht.Range("B" & sLinSheets)
                        'Na instrução abaixo estou supondo que a data que comentou seria da Coluna L -DATA ENVIO
                        'Se não for, é só ajustar
                        ShtCONSOLIDADO.Range("L" & sRow).Copy Destination:=sSht.Range("C" & sLinSheets)
                     End If
                     
                 Next i
        Next

End Sub

[]s

olá, quando aperto esta aparecendo esse erro. o problema é no meu pc?

Quando cliquei no botão copiar para abas, não deu erro.
Você fez alguma alteração no arquivo?
Em caso positivo, anexo como está agora.

Baixei o arquivo que se encontra google drive e colei a rotina que postei sem alterar nada e não deu nenhum erro, alias a única coisa que vi é que a data na coluna "L" é através de uma formula, então não deveria utilizar o "Copy Destination", depois confirme se a data é desta coluna mesmo ou outra, e se for com formula acerto a rotina.
Faça o que o klarc28 comentou, veja se não tem nada diferente no arquivo que utilizou, você chegou a executar o exemplo que anexei ? Deu algum erro ?

[]s

pelo anexo que você mandou é isso mesmo, quanto a data eu vou criar depois uma nova coluna que mudarei acho que é so mudar a letra da coluna no codigo né?. Agora o problema é que quando copio e colo no meu arquivo ai ele da erro, as vezes ele manda escolher nome de arquivo aí não consigo compreender o erro. e é naquela linha do print. segue o anexo o meu arquivo.

eu peguei o seu anexo novamente e acrescentei uma linha numero 109 e coloquei pontos nas colunas, aí ele ja deu o mesmo erro. é como ele só funcionasse com as abas 100, 102, 102, 108. sendo que sao 20 abas que serão preenchidas podendo haver novos depois que irei fazendo a inclusão. segue print

................

pelo anexo que você mandou é isso mesmo, quanto a data eu vou criar depois uma nova coluna que mudarei acho que é so mudar a letra da coluna no codigo né?. Agora o problema é que quando copio e colo no meu arquivo ai ele da erro, as vezes ele manda escolher nome de arquivo aí não consigo compreender o erro. e é naquela linha do print. segue o anexo o meu arquivo.

O que posso dizer quanto a mensagem de "escolher um arquivo", isto ocorreu quando abri a primeira vez o seu arquivo devido às formulas e vinculos que ele tinha, por isto tirei as formulas no modelo que fiz, verifique as se alguma formula não está com a referencia errada.
No modelo que baixei do drive, adicionei novas abas e o respectivo código na aba CONSOLIDADO e não deu nenhum erro, verifique toda a escrita, qualquer caracter diferente pode causar erros.

[]s

Verifique o vinculo na formula que sencontra na coluna "L" refernte a data, quando eu abro o arquivo que contem a formula, para mim aparece assim :
"=SE(P4="NADA CONSTA";"-";'C:Meus DocumentosGoogle DriveAltechPLANILHAS 2017Mês atual[Mês atual.xlsm]100'!P1)", e como eu não tenho este diretorio e arquivo é aberto a caixa para eu selecionar.
Faça um outro teste antes desabilitando esta linha na rotina :

ShtCONSOLIDADO.Range("L" & sRow).Copy Destination:=sSht.Range("C" & sLinSheets)

[]s

olá eu criei uma coluna Z pra botar a data e fiz a mudança no código porem continua dando erro. segue anexo prints e a planilha. Eu fiz inserção dos codigos e da nova coluna no arquivo original e o erro do print apareceu. acho que é algo da coluna A. pode ver no link que acrescentei.

kayo, agora identifiquei o erro.

O que acontece é o seguinte, você criou novas abas sem nenhuma informação, com o layout em branco, então na instrução :

sLinSheets = sSht.Range("A2").End(xlDown).Row + 1

onde capturamos a última linha preenchida, ela captura a ultima linha da aba (A1048576) e soma mais 1 o que gera o erro de estouro, e falha no range que não existe.

Das duas uma, ou você cria as abas conforme o layout das outras, ou temos de criar tratamento na rotina para abas em branco, mas se criar as abas todas iguais conforme o layout da "100" não é mais para ter erros.

[]s

A ta. vou colocar as informacoes e fazer o teste

Ajeitei aqui e deu certíssimo, muito obrigado! era isso mesmo que eu precisava, me desculpe pelo estresse caso eu tenha lhe causado, ficou ótimo. parabéns e obrigado pela sua inteligência, dedicação e paciência.